METHOD pushButton(VAR eventInfo Event)
VAR
        easter_year            Number
        easter_month           String
        easter_sunday          Number
        golden_number          Number
        century                Number
        leap_year_correction   Number
        lunar_correction       Number
        sunday                 Number
        epact                  Number
        full_moon              Number
    dummy           Table
    easter_table    TCursor
ENDVAR
    dummy = create "easter2.db"
                with
                    "Year"  :   "S",
                    "Month" :   "A5",
                    "Day"   :   "S"
                key "Year"
            endcreate
    easter_table.open("easter2.db")
    easter_table.edit()
    FOR easter_year FROM FirstYear TO LastYear
        sleep()
        golden_number = MOD(easter_year, 19)
                            + 1
century = FLOOR(easter_year/100) + 1
leap_year_correction
    = FLOOR(3*century/4) - 12
lunar_correction
    = FLOOR((8*century+5)/25) - 5
sunday = FLOOR(5*easter_year/4)
            - leap_year_correction
            - 10
epact = MOD(11*golden_number + 20
            + lunar_correction
            - leap_year_correction,
            30)
IF (epact = 25 AND golden_number > 11)
    OR (epact = 24)
THEN
    epact = epact + 1
ENDIF
full_moon = 44 - epact
IF full_moon < 21
THEN
    full_moon = full_moon + 30
ENDIF
easter_sunday = full_moon + 7
    - MOD(sunday + full_moon, 7)
IF easter_sunday > 31
THEN
    easter_sunday
        = easter_sunday - 31
    easter_month = "April"
ELSE
    easter_month = "March"
ENDIF
        sleep()
        easter_table.insertRecord()
        easter_table."Year"  = easter_year
        easter_table."Month" = easter_month
        easter_table."Day"   = easter_sunday
    ENDFOR
sleep()
easter_table.close()
ENDMETHOD